home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 April / 64er_Magazin_85-04_1985_Markt__Technik_de.d64 / demo window64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  159 lines
  1. 10 )zd:)wd:poke53280,0:poke53281,0:print"[158][147]window64"
  2. 20 print"                 by"
  3. 30 print"             engin guelen  "
  4. 40 fori=0to1000:next
  5. 50 print"         [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  6. 60 fori=1to6:print"         [221][221]":next
  7. 70 print"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  8. 80 v=54272:pokev+6,240:pokev+5,240:pokev+4,33:pokev+24,15
  9. 90 fori=0to255step5:pokev+1,i:foru=0to50:nextu,i:pokev+4,0
  10. 100 data32552,31946,31412,31533
  11. 110 reada1,a2,a3,a4:pokea2,1:goto120
  12. 111 )wd:readuu:pokea3,uu:pokea4,uu-1:fory=1touu:readx:pokea1+y,x:next:)wd:return
  13. 120 data5,3,11,14,22,25:gosub111:f=1:gosub140:goto160
  14. 140 )waf:print"[147][158]*****************************************";
  15. 141 print"[159]                window64              ";
  16. 142 print"[158]****************************************[157]"+chr$(148)+"*";:return
  17. 150 )waf:print"[147][159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221]";
  18. 151 print"[158]                                      ";
  19. 152 print"[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157]"+chr$(148)+"[192]";:return
  20. 160 f=3:gosub150:print"[158]             engin guelen  ":f=5:gosub140
  21. 170 )wa2
  22. 171 print"[146][147][158]das ungewoehnliche tool-programm"
  23. 172 print"fuer die komfortable benutzung der"
  24. 173 print"             fenster-technik            ":fori=0to2000:next
  25. 174 )wa4:print"[147]die befehle:"
  26. 175 print")wm ====> window-menue"
  27. 176 print")wax====> window nr. x aktivieren"
  28. 177 print")wd ====> window-modus desaktivieren"
  29. 178 print")zm ====> schirmzonen-menue"
  30. 179 print")za ====> schirmzonenmodus aktivieren"
  31. 180 print")zd ====> schirmzonenmodus desaktivieren";:print""
  32. 190 )wa3:print""spc(13)"taste druecken"
  33. 200 fori=0to3000:geta$:ifa$<>""theni=10000:goto210
  34. 205 next
  35. 210 )wa3:print""spc(13)"einige beispiele:":fori=0to2000:next
  36. 220 )wa3:print""spc(10)"zaehlen von 100 bis 1000":goto230
  37. 222 readuu:poke30016,uu:fory=0to23:readx:poke32282+y,x:next:)za:return
  38. 230 ford=81to1step-40:)wa2:print"[147]":)wa4:print"[147]":fori=100to1000step10
  39. 240 )wa2:poke54296,15:printi;:)wa4:poke54296,0:printi;:foru=0tod:nextu,i,d
  40. 250 data8,3,5,7,10,13,17,22,25
  41. 260 gosub111:f=1:gosub140:f=8:gosub140
  42. 270 forj=100to1000step10:fork=7to2step-1:)wak:poke646,26-k:poke54296,15
  43. 271 print""j;:poke54296,0:nextk,j
  44. 272 fori=0to1000:next
  45. 273 data3,01,22,25
  46. 274 data2,12,25
  47. 275 data3,01,22,25
  48. 276 data3,8,16,25
  49. 277 data3,01,22,25
  50. 278 data4,6,12,18,25
  51. 279 data3,01,22,25
  52. 280 data5,5,10,15,20,25
  53. 281 data3,01,22,25
  54. 282 data6,4,8,12,16,20,25
  55. 283 data3,01,22,25
  56. 284 data7,3,6,9,14,19,22,25
  57. 285 data3,01,22,25
  58. 286 data8,3,6,9,13,16,19,22,25
  59. 290 )wd:print"[147]       sie haben die wahl zwischen      "
  60. 291 print"           2 bis 8 fenstern !!          ":foru=0to3000:next
  61. 300 forj=2to8:gosub111:f=3:gosub150:print""j" fenster :"
  62. 301 foru=0to500:next:gosub111
  63. 310 fork=1toj:)wak:print"[147][159][146]              "k"[157] . fenster  ";:forf=15to0step-1
  64. 311 poke54296,f:next
  65. 320 foru=0to400:nextu,k:foru=0to1000:nextu,j
  66. 330 data5,3,11,14,22,25:gosub111:f=1:gosub140:f=5:gosub140:f=3:gosub150
  67. 340 print"zahlenraten...."
  68. 350 fork=1to5:c=1+int(rnd(1)*10)
  69. 360 )wa2:input"[147]code(1-10)";cc:)wa4
  70. 370 ifcc=cthenprint"[147]richtig!!":next:goto390
  71. 380 print"[147]falsch!":print"richtiger code:"c:next
  72. 390 data5,3,9,16,22,25:gosub111:f=1:gosub140:f=5:gosub150
  73. 400 print"die window-befehle...."
  74. 410 )wa2:print"[147]                  )wm  "
  75. 411 print"mit diesem befehl springen sie ins "
  76. 412 print"fenster-menue,wo sie festlegen koennen,"
  77. 413 print"mit wievielen und wiegrossen fenstern"
  78. 414 print"sie arbeiten wollen. ":print"  -- fehleingaben unbekannt...--";
  79. 420 )wa3:print"[147]                 )wax  "
  80. 421 print"mit diesem befehl aktivieren sie   "
  81. 422 print"das fenster nr. x.  zwei horizontale   "
  82. 423 print"linien am oberen und unteren rand    "
  83. 424 print"zeigen ihnen die begrenzungen des  ":print"jeweiligen bereichs...";
  84. 430 )wa4:print"[147]                  )wd  "
  85. 431 print"mit diesem befehl desaktivieren    "
  86. 432 print"sie den window-mode. der bildschirm  "
  87. 433 print"wird geloescht, und sie koennen wieder"
  88. 434 print"wie gewohnt damit arbeiten...      ":)wa1
  89. 440 fori=0to4000:geta$:ifa$<>""theni=10000:goto449
  90. 445 next
  91. 449 )wd:f=1:gosub140:f=5:gosub140
  92. 450 )wa3:print"[147]++++++++++++++++++++++++++++++++++++++++";
  93. 460 print"[159]         es geht weiter mit dem         ";
  94. 470 print"           schirmzonen-modus            ";
  95. 480 print"+++++++++++++++++++++++++++++++++++++++[157]"+chr$(148)+"+";
  96. 490 fori=0to2000:next
  97. 500 )wd:print"[147][159] das implementierte schirmzonen-menue"
  98. 501 print" gestattet ihnen die weitere        "
  99. 502 print" aufteilung des bildschirms in bis "
  100. 503 print" zu 4 sektoren....                   "
  101. 504 print" fuer jeden sektor koennen sie im menue"
  102. 505 print" diverse parameter beeinflussen:       "
  103. 506 print"    - text-/graphik-modus              "
  104. 507 print"    - multi-color                    "
  105. 508 print"    - extended color                 "
  106. 509 print"    - hires-basis                    "
  107. 510 print"    - farbram-basis                   "
  108. 511 print"    - charakter-basis                "
  109. 512 print"    - videoram-basis                 "
  110. 513 print"[158] beachten sie, dass in beiden       "
  111. 514 print" menues ()wm[146] und )zm[146]) alle zahlen-"
  112. 515 print" eingaben in hexadezimaler form zu    "
  113. 516 print" erfolgen haben...                   "
  114. 520 fori=0to5000:geta$:ifa$<>""theni=10000:goto530
  115. 525 next
  116. 530 f=1:gosub140:f=5:gosub150
  117. 540 print"die befehle...":fori=0to2000:next
  118. 550 )wa2:print"[147][146]                  )zm  "
  119. 551 print"[159] sprung ins schirmzonenmenue....":)wa3:fori=0to1000:next
  120. 560 print"[147][146]                  )za  "
  121. 561 print"[159] aktivierung des schirmzonen-modes....":)wa4:fori=0to1000:next
  122. 570 print"[147][146]                  )zd  "
  123. 571 print"[159] desaktivierung des schirmzonen-modes...":)wa5:fori=0to1000:next
  124. 580 print"einige beispiele:":fori=0to2000:next
  125. 590 data3,11,14,25:gosub111
  126. 600 f=2:gosub150:print"beide zeichensaetze...."
  127. 610 data3,137,161,49,49,4,5,4,4,8,8,8,24,27,27,27,27,3,3,3,3,20,20,22,22
  128. 611 gosub222
  129. 620 fori=1064to1318:pokei,i-1064:pokei+560,i-1064:pokei+54272,6:pokei+54832,1:
  130. 630 poke54296,15:poke54296,0:next
  131. 635 print"auf einem bildschirm!!!!"
  132. 640 fori=0to3000:next
  133. 650 fori=0to20:poke32286,i:poke32288,i+1:foru=0to300:nextu,i:fori=0to2000:next
  134. 660 data3,3,22,25:gosub111:)wa2:)zd
  135. 661 print"[147]    mischen von text und graphik !!     "
  136. 670 fori=0to2000:next:print"[147]"
  137. 680 data3,81,217,49,49,5,0,4,4,8,8,8,24,27,59,27,27,3,2,3,3,20,128,20,22
  138. 681 sys49479:gosub222
  139. 690 forx=0to319step5:sys49529,x,24,319-x,175:next:fori=0to1000:next
  140. 700 f=1:gosub140:f=3:gosub140:fori=0to3000:next
  141. 710 )wa1:print"[147]":fori=100to1000step5:printi;:poke54296,15:poke54296,0:next
  142. 715 f=1:gosub140
  143. 720 )wa3:print"[147]":fori=100to1000step5:printi;:poke54296,15:poke54296,0:next
  144. 725 f=3:gosub140
  145. 730 fori=0to5000:next
  146. 740 )zd:)wa2:print"[147]nun liegt es an ihnen, zu erproben,"
  147. 750 print"was fuer eine hilfestellung [159]window64[146]"
  148. 760 print"fuer sie  bei ihrer taeglichen "
  149. 770 print"arbeit leisten kann."
  150. 780 print"--...also, fangen wir gleich an...--"
  151. 790 print"p.s.:gleichzeitiges betaetigen"
  152. 800 print"der ctrl- und _-taste laesst den cursor"
  153. 810 print"im fenster-modus ins naechste fenster"
  154. 820 print"springen (verschiedenste parameter,wie:"
  155. 830 print"cursorposition,zeichenfarbe,etc."
  156. 840 print"werden dabei zwischengespeichert,"
  157. 850 print"um eine spaetere rueckkehr an exakt"
  158. 860 print"dieselbe position zu gewaehrleisten)."
  159.